home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
turbotut.arc
/
WRITELNX.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-06-30
|
829b
|
44 lines
PROGRAM examples_of_write_statements;
VAR index : BYTE;
count : REAL;
what : BOOLEAN;
letter : CHAR;
name : STRING[10];
BEGIN
WRITELN('Integer');
index := 17;
WRITELN(index,index);
WRITELN(index:15,index:15);
WRITELN;
WRITELN('Real');
count := 27.5678;
WRITELN(count,count);
WRITELN(count:15,count:15);
WRITELN(count:15:2,count:15:2);
WRITELN(count:15:3,count:15:3);
WRITELN(count:15:4,count:15:4);
WRITELN;
WRITELN('Boolean');
what := FALSE;
WRITELN(what,what);
WRITELN(what:15,what:15);
WRITELN('Char');
letter := 'Z';
WRITELN(letter,letter);
WRITELN(letter:15,letter:15);
WRITELN('String');
name := 'John Doe';
WRITELN(name,name);
WRITELN(name:15,name:15);
WRITELN;
WRITELN('Text output','Text output');
WRITELN('Text output':15,'Text output':15);
END.